' BASIC Anywhere Machine port by Charlie Veniot
' to demonstrate BAM's enhancement to wwwBASIC: scrolling of text when the bottom of the screen is reached
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.08.08.01.01]) on 2023.08.21 at 21:40 (Coordinated Universal Time)
'
' BAM version of the C-64 program
' 🔶🔶🔶 10 PRINT CHR$(205.5+RND(1)); : GOTO 10 🔶🔶🔶

SCREEN _NEWIMAGE(320, 200, 12)

_LETCHR$(1, _
 ".......X" + _
 "......X." + _
 ".....X.." + _
 "....X..." + _
 "...X...." + _
 "..X....." + _
 ".X......" + _
 "X.......")
 
_LETCHR$(2, _
 "X......." + _
 ".X......" + _
 "..X....." + _
 "...X...." + _
 "....X..." + _
 ".....X.." + _
 "......X." + _
 ".......X")

COLOR 14
10 PRINT CHR$(1+INT(RND*2)); : SLEEP 0.01 : GOTO 10